home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / examples.lha / examples / ann / ann.test < prev    next >
Encoding:
Text File  |  1991-10-08  |  2.3 KB  |  102 lines
  1. #! /bin/csh -f
  2. # Script for testing annotation routines 
  3. #
  4. # Output files can also be examined with hdfed to see if labels
  5. # and descriptions are there.
  6. #
  7. # Test routines:
  8. #
  9. #   putSDS_RISan <outfile> <height> <width> <reps>:  writes a file
  10. #       containingg some number (<reps>) of SDSs and images.  The
  11. #       dimensions of the images are all <height>x<width>.
  12. #       Two out of every three SDSs are given annotations, but
  13. #       all RISs are given annotations.
  14. #
  15. #   getSDSan <infile>: prints all of the annotations for all of
  16. #       of the SDSs in <infile>.
  17. #
  18. #   get1anF: FORTRAN version. Gets only second label and description. 
  19. #       Enter filename after prompt.
  20. #
  21. #   getSDSlablist <infile>: gets SDS label list for <infile>
  22. #   getSDSlablistF: FORTRAN version.  Enter filename after prompt.
  23. # 
  24. #   file_ann_test <file>: writes *file* annotations to a file and 
  25. #       then reads them back.
  26. #   file_ann_test: FORTRAN version.  Enter filename after prompt.
  27. #
  28. #
  29. set echo
  30. #
  31. # write to file o1 one SDS and one RIS, with annotations
  32. putSDS_RISan o1 30 40 1
  33. #
  34. # ---------------------------
  35. #
  36. # write to file o2 10 of each
  37. putSDS_RISan o2 30 40 10
  38. #
  39. # ---------------------------
  40. #
  41. # print all SDS annotations stored in o1
  42. getSDSan o1
  43. #
  44. # ---------------------------
  45. #
  46. # print all SDS annotations stored in o2
  47. getSDSan o2
  48. #
  49. # ---------------------------
  50. #
  51. # by using DFANlablist, get and print all SDS labels stored in o1
  52. getSDSlblst o1
  53. #
  54. # ---------------------------
  55. #
  56. # by using DFANlablist, get and print all SDS labels stored in o1
  57. getSDSlblst o2
  58. #
  59. # ---------------------------
  60. #
  61. # write file labels and file descriptions to file o3 and read them back
  62. file_ann o3
  63. #
  64. # ---------------------------
  65. #
  66. # *********************  NOW FOR THE FORTRAN TESTS *******************
  67. #
  68. unset echo
  69. echo " "
  70. echo "NOW THE FORTRAN TESTS...enter o2 or 'o2' when prompted for a file name"
  71. echo " "
  72. set echo
  73. #
  74. # print all SDS annotations stored in the file the user names
  75. echo " "
  76. echo "get1anF"
  77. echo " "
  78. get1anF
  79. #
  80. # ---------------------------
  81. #
  82. # get and print all SDS labels stored in the file the user names
  83. echo " "
  84. echo "getSDSlblstF"
  85. echo " "
  86. getSDSlblstF
  87. #
  88. # ---------------------------
  89. #
  90. # write file labels and file descriptions to file o4 and read them back
  91. echo " "
  92. echo "file_annF"
  93. echo " "
  94. file_annF
  95. #
  96. # ---------------------------
  97. #
  98. unset echo
  99.  
  100.  
  101.  
  102.